inherited FPesquisaContasPagar: TFPesquisaContasPagar
  Left = 216
  Top = 136
  Caption = 'Pesquisa Contas a Pagar'
  ClientHeight = 446
  ClientWidth = 620
  OldCreateOrder = True
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 620
    TabOrder = 1
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Left = 361
      Enabled = False
      Visible = False
    end
    inherited BtnFechar: TBitBtn
      Left = 242
    end
  end
  inherited Panel1: TPanel
    Width = 620
    Height = 405
    TabOrder = 0
    object Label1: TLabel [0]
      Left = 4
      Top = 227
      Width = 79
      Height = 13
      Caption = 'Tipo Documento'
    end
    object Label2: TLabel [1]
      Left = 4
      Top = 123
      Width = 54
      Height = 13
      Caption = 'Fornecedor'
    end
    object Label3: TLabel [2]
      Left = 4
      Top = 201
      Width = 40
      Height = 13
      Caption = 'Portador'
    end
    object Label4: TLabel [3]
      Left = 4
      Top = 176
      Width = 77
      Height = 13
      Caption = 'Class.Financeira'
    end
    object Label5: TLabel [4]
      Left = 355
      Top = 65
      Width = 42
      Height = 13
      Caption = 'Situa'#231#227'o'
    end
    object Label6: TLabel [5]
      Left = 196
      Top = 35
      Width = 6
      Height = 13
      Caption = #224
    end
    object Label7: TLabel [6]
      Left = 4
      Top = 65
      Width = 82
      Height = 13
      Caption = 'Data Vencimento'
    end
    object Label8: TLabel [7]
      Left = 197
      Top = 65
      Width = 6
      Height = 13
      Caption = #224
    end
    object Label9: TLabel [8]
      Left = 4
      Top = 39
      Width = 85
      Height = 13
      Caption = 'Data Lan'#231'amento'
    end
    object Label10: TLabel [9]
      Left = 4
      Top = 311
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label11: TLabel [10]
      Left = 355
      Top = 39
      Width = 55
      Height = 13
      Caption = 'Documento'
    end
    object Label12: TLabel [11]
      Left = 101
      Top = 376
      Width = 33
      Height = 13
      Caption = 'Codigo'
      Visible = False
    end
    object Label13: TLabel [12]
      Left = 4
      Top = 13
      Width = 81
      Height = 13
      Caption = 'Data Documento'
    end
    object Label14: TLabel [13]
      Left = 196
      Top = 9
      Width = 6
      Height = 13
      Caption = #224
    end
    object Label15: TLabel [14]
      Left = 355
      Top = 13
      Width = 33
      Height = 13
      Caption = 'Origem'
    end
    object Label16: TLabel [15]
      Left = 4
      Top = 148
      Width = 76
      Height = 13
      Caption = 'Centro de Custo'
    end
    object Label17: TLabel [16]
      Left = 355
      Top = 175
      Width = 112
      Height = 13
      Caption = 'Grupo Class. Financeiro'
    end
    object Label18: TLabel [17]
      Left = 355
      Top = 149
      Width = 96
      Height = 13
      Caption = 'Grupo Centro. Custo'
    end
    object Label20: TLabel [18]
      Left = 355
      Top = 123
      Width = 86
      Height = 13
      Caption = 'Grupo Fornecedor'
      FocusControl = BtnConsultar
    end
    object Label19: TLabel [19]
      Left = 4
      Top = 89
      Width = 80
      Height = 13
      Caption = 'Data Pagamento'
    end
    object Label21: TLabel [20]
      Left = 197
      Top = 89
      Width = 6
      Height = 13
      Caption = #224
    end
    object Label22: TLabel [21]
      Left = 4
      Top = 251
      Width = 85
      Height = 13
      Caption = 'Fonte de Recurso'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel [22]
      Left = 4
      Top = 275
      Width = 24
      Height = 13
      Caption = 'Valor'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label24: TLabel [23]
      Left = 185
      Top = 278
      Width = 6
      Height = 13
      Caption = #224
    end
    object Label25: TLabel [24]
      Left = 355
      Top = 91
      Width = 70
      Height = 13
      Caption = 'T'#237'tulos PagFor'
    end
    inherited DBGrid1: TDBGrid
      Top = 416
      Width = 683
      Height = 30
      Align = alNone
      TabOrder = 30
    end
    object DBLCBFornecedor: TDBLookupComboBox [26]
      Left = 100
      Top = 115
      Width = 250
      Height = 19
      Ctl3D = False
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      ParentCtl3D = False
      TabOrder = 8
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBTipoDocumento: TDBLookupComboBox [27]
      Left = 100
      Top = 219
      Width = 250
      Height = 19
      Ctl3D = False
      KeyField = 'TIPO_DOC_CODIGO'
      ListField = 'TIPO_DOC_DESCRICAO'
      ListSource = DSTipoDocumento
      ParentCtl3D = False
      TabOrder = 15
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBPortador: TDBLookupComboBox [28]
      Left = 100
      Top = 193
      Width = 250
      Height = 19
      Ctl3D = False
      KeyField = 'PORT_CODIGO'
      ListField = 'PORT_DESCRICAO'
      ListSource = DSPortador
      ParentCtl3D = False
      TabOrder = 14
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBPlanoContas: TDBLookupComboBox [29]
      Left = 100
      Top = 167
      Width = 250
      Height = 19
      Ctl3D = False
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = DSPlano
      ParentCtl3D = False
      TabOrder = 12
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DEDataTituloIni: TDateEdit [30]
      Left = 100
      Top = 31
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 2
    end
    object DEDataTituloFim: TDateEdit [31]
      Left = 212
      Top = 31
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 3
    end
    object DEDataVencimentoIni: TDateEdit [32]
      Left = 100
      Top = 57
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 4
    end
    object DEDataVencimentoFim: TDateEdit [33]
      Left = 213
      Top = 57
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 5
    end
    object CBSituacao: TComboBox [34]
      Left = 470
      Top = 57
      Width = 70
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 21
      Text = 'Todos'
      Items.Strings = (
        'Todos'
        'Em aberto'
        'Pagos')
    end
    object CkBTodasEmpresas: TCheckBox [35]
      Left = 60
      Top = 310
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 17
      OnClick = CkBTodasEmpresasClick
    end
    object RGRelatorio: TRadioGroup [36]
      Left = 289
      Top = 385
      Width = 312
      Height = 30
      Caption = 'Relatorio Agrupando por :'
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Vencimento'
        'Fornecedor'
        'Classifica'#231#227'o')
      TabOrder = 28
      Visible = False
      OnClick = RGRelatorioClick
    end
    object ETitulo: TEdit [37]
      Left = 101
      Top = 394
      Width = 77
      Height = 21
      TabStop = False
      TabOrder = 27
      Visible = False
    end
    object EDocumento: TEdit [38]
      Left = 470
      Top = 31
      Width = 68
      Height = 19
      Ctl3D = False
      MaxLength = 10
      ParentCtl3D = False
      TabOrder = 19
    end
    object DEDataDocumentoInicio: TDateEdit [39]
      Left = 100
      Top = 5
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 0
    end
    object DEDataDocumentoFim: TDateEdit [40]
      Left = 212
      Top = 5
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 1
    end
    object DBLCBCentroCusto: TDBLookupComboBox [41]
      Left = 100
      Top = 141
      Width = 250
      Height = 19
      Ctl3D = False
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = DSCentro
      ParentCtl3D = False
      TabOrder = 10
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object EGrupoFinanceiro: TEdit [42]
      Left = 470
      Top = 167
      Width = 46
      Height = 19
      Ctl3D = False
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 13
    end
    object EGrupoCentroCusto: TEdit [43]
      Left = 470
      Top = 141
      Width = 46
      Height = 19
      Ctl3D = False
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 11
      OnChange = EGrupoCentroCustoChange
    end
    object CheckLinhaGuia: TCheckBox [44]
      Left = 436
      Top = 212
      Width = 117
      Height = 17
      Caption = 'Sublinhar Registros'
      TabOrder = 22
    end
    object cbTotalGeral: TCheckBox [45]
      Left = 436
      Top = 228
      Width = 133
      Height = 17
      Caption = 'Exibir Total Acumulado'
      TabOrder = 23
    end
    object CLBEmpresas: TCheckListBox [46]
      Left = 1
      Top = 327
      Width = 618
      Height = 57
      Align = alBottom
      Columns = 1
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 26
    end
    inherited Panel3: TPanel
      Top = 384
      Width = 618
      TabOrder = 29
    end
    object EOrigem: TComboBox
      Left = 470
      Top = 5
      Width = 148
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 18
      Text = 'Todos'
      OnChange = EOrigemChange
      OnKeyPress = cbxTipoBuscaKeyPress
      Items.Strings = (
        'Todos'
        'Digitado'
        'Programado'
        'Prog. Avulso'
        'Compras'
        'Vendas'
        'Compras 1'
        'Compras 2'
        'Compras 3')
    end
    object cbxTipoBusca: TComboBox
      Left = 545
      Top = 31
      Width = 73
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 20
      Text = 'igual'
      OnChange = cbxTipoBuscaChange
      OnKeyPress = cbxTipoBuscaKeyPress
      Items.Strings = (
        'igual'
        'contendo')
    end
    object edGrupoForn: TEdit
      Left = 470
      Top = 115
      Width = 100
      Height = 19
      Ctl3D = False
      MaxLength = 5
      ParentCtl3D = False
      TabOrder = 9
      OnKeyPress = edGrupoFornKeyPress
    end
    object cbOrdemPorValor: TCheckBox
      Left = 436
      Top = 244
      Width = 125
      Height = 17
      Caption = 'Ordenar Por Valor'
      TabOrder = 24
    end
    object DEDataPagamentoIni: TDateEdit
      Left = 100
      Top = 81
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 6
    end
    object DEDataPagamentoFim: TDateEdit
      Left = 213
      Top = 81
      Width = 88
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 7
    end
    object cbSaldoZero: TCheckBox
      Left = 436
      Top = 261
      Width = 141
      Height = 17
      Caption = 'Ocultar Saldo Zero'
      Enabled = False
      TabOrder = 25
    end
    object CBOmitirDethalhes: TCheckBox
      Left = 436
      Top = 276
      Width = 117
      Height = 17
      Caption = 'Omitir detalhes'
      TabOrder = 31
    end
    object cbClassificacao: TCheckBox
      Left = 436
      Top = 196
      Width = 165
      Height = 17
      Caption = 'Exibir Classifica'#231#227'o Financeira'
      TabOrder = 32
    end
    object DBLFonteRecurso: TDBLookupComboBox
      Left = 100
      Top = 245
      Width = 250
      Height = 19
      Ctl3D = False
      KeyField = 'FONT_CODIGO'
      ListField = 'FONT_DESCRICAO'
      ListSource = DSFonteRecurso
      ParentCtl3D = False
      TabOrder = 16
      OnKeyDown = DBLFonteRecursoKeyDown
    end
    object edValorIni: TRxCalcEdit
      Left = 100
      Top = 272
      Width = 80
      Height = 19
      AutoSize = False
      Ctl3D = False
      DisplayFormat = '#,##0.00'
      ButtonWidth = 0
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 33
    end
    object edValorFim: TRxCalcEdit
      Left = 196
      Top = 272
      Width = 80
      Height = 19
      AutoSize = False
      Ctl3D = False
      DisplayFormat = '#,##0.00'
      ButtonWidth = 0
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 34
    end
    object cbTipoValor: TComboBox
      Left = 280
      Top = 272
      Width = 73
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 35
      Text = 'T'#237'tulo'
      Items.Strings = (
        'T'#237'tulo'
        'Docto'
        'Saldo')
    end
    object ComboBox1: TComboBox
      Left = 470
      Top = 84
      Width = 71
      Height = 21
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 36
      Text = 'Todos'
      Items.Strings = (
        'Todos'
        'Sim'
        'N'#227'o')
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      'Select'
      'Forn_Razao as Fornecedor,'
      'Cp_Codigo as Codigo,'
      'Cp_DataTitulo as Data,'
      'Cp_DataVencimento as Vencimento,'
      'CP_DATADOCUMENTO as DataDocumento,'
      'Cp_Documento as Documento,'
      'Cp_Historico1 as Historico1,'
      'Cp_Historico2 as Historico2,'
      'Cp_Valor as Valor,'
      'Cp_Saldo as Saldo ,'
      '(Cp_Valor - Cp_Saldo ) as Pago,'
      'PLANOCONTAS.DESCRICAO AS Classificacao'
      ''
      'from ContasPagar'
      ''
      'left join Fornecedor on  Forn_Codigo = Cp_Fornecedor'
      
        'left JOIN PLANOCONTAS ON  PLANOCONTAS.CODIGO   = ContasPagar.CP_' +
        'PLANO'
      'left join Centrocusto on  Centrocusto.Codigo = Cp_Centrocusto'
      'left join PlanoContas on  PlanoContas.Codigo = Cp_Plano'
      ''
      'Where (Codigoempresa in (1) )'
      ''
      
        'Group by Cp_DataVencimento,Cp_Valor,Cp_Codigo,Cp_DataTitulo,CP_D' +
        'ATADOCUMENTO ,Forn_Razao,Cp_Documento,Cp_Historico1,Cp_Historico' +
        '2,Cp_Saldo,PLANOCONTAS.DESCRICAO')
    Left = 320
    Top = 9
  end
  inherited DSPesquisa: TDataSource
    Left = 304
    Top = 89
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 256
    Top = 328
  end
  object DSTipoDocumento: TDataSource
    DataSet = DMFinanceiro.QTipoDocumento
    Left = 447
    Top = 376
  end
  object DSPlano: TDataSource
    DataSet = DMFinanceiro.QPlano
    Left = 336
    Top = 312
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 176
    Top = 326
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 328
    Top = 384
  end
  object DSFonteRecurso: TDataSource
    DataSet = DMFinanceiro.QFonteRecurso
    Left = 208
    Top = 216
  end
end
